﻿Public Class frmSupplier

    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New frmNewSupplier
        frm.ShowDialog()
    End Sub
End Class